perm filename BPEROP.FAI[CMS,LCS] blob sn#336460 filedate 1978-02-20 generic text, type T, neo UTF8
00100	;ROUTINE TO FIND THE NUMBER OF BYTES FOR A GIVEN OPCODE
00200	;   A ← OPCODE TO CHECK
00300	;   RETURNS WITH NUMBER OF BYTES IN X
00400	.INSERT ASMBL.FAI[CMS,LCS]
00500	
00600	BIT0:	1
00700	BIT012:	7
00800	BIT2:	4
00900	BIT3:	10
01000	BIT4:	20
01100	BIT7:	200
01200	
01300	CKOP:	BEQ	ONEB
01400		CMPI	140
01500		BEQ	ONEB
01600		NOP
01700		BIT	BIT3
01800		BEQ	HALFOF
01900		BIT	BIT2
02000		BNE	THREEB
02100		BIT	BIT0
02200		BEQ	ONEB
02300		BIT	BIT4
02400		BEQ	TWOB
02500		BNE	THREEB
02600	HALFOP:	BIT	BIT012
02700		BNE	TWOB
02800		BIT	BIT4
02900		BNE	2B
03000		BIT	BIT7
03100		BNE	TWOB
03200	THREEB:	INX
03300	TWOB:	INX
03400	ONEB:	INX
03500		RTS
03600	END